home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Gry / Tales of Tamar Demo.lha / talesdemo1 / rexx / Start_TCP_IP_MiamiDx.rexx < prev   
OS/2 REXX Batch file  |  1999-11-17  |  3KB  |  57 lines
  1. /******************************************************************************************************/
  2. /* Online-Script mit Arexx                                                                            */
  3. /*     © by Martin Wolf / Eternity Hard & Software                                                  */
  4. /*      First Bit set: 03.05.1998                                                                     */
  5. /*      Last Bit set :                                                                                */
  6. /*                                                                                                */
  7. /*                                                                                                    */
  8. /*      Version 1.01 : Wenn Port schon offen ist wird Script übersprungen                             */
  9. /*      Version 1.02 : Env-Var Deja wird angelegt                                      */
  10. /*      Version 1.03 : Library rexxsupport.library wird jetzt geladen                      */
  11. /*      Version 1.04 : Das Vorhanden sein des Stacks wird jetzt auch überprüft                  */
  12. /*                                                                                                    */
  13. /******************************************************************************************************/
  14.  
  15. OPTIONS RESULTS
  16.  
  17. ADDRESS COMMAND
  18.     IF ~SHOW('L','rexxsupport.library') THEN    /* Library laden, damit            */
  19.       CALL ADDLIB('rexxsupport.library',0,-30,0)    /* Assign-Suche ohne Meldung        */
  20.  
  21.     IF ~SHOWLIST('A','MIAMI') THEN            /* Wenn kein TCPIP-Assign da ist    */
  22.       DO
  23.         'Setenv ToTDemo1:Data/TCPIPDeja -1'        /* direkt raus hier            */
  24.         EXIT
  25.       END
  26.  
  27.     IF SHOW('P','MIAMI.1') THEN            /* TCPIP-Port da ?            */
  28.       'Setenv ToTDemo1:Data/TCPIPDeja 1'        /* Env-Var setzen            */
  29.     ELSE
  30.       'Setenv ToTDemo1:Data/TCPIPDeja 0'        /* keiner gestartet            */
  31.     IF ~SHOW('P','MIAMI.1') THEN
  32.       DO
  33.         IF EXISTS('Miami:MiamiDx') THEN        /* Auf rexxsys verzichten        */
  34.           'run >NIL: Miami:MiamiDx NOGUI >NIL:'    /* Existiert TCPIP-Stack überhaupt dort ?*/
  35.         ELSE
  36.           DO
  37.                 IF EXISTS('Miami:MiamiDx.beta') THEN    /* Auf rexxsys verzichten        */
  38.             'run >NIL: Miami:MiamiDx.beta NOGUI >NIL:'/* DAU-Schutz                */
  39.           ELSE
  40.           DO
  41.               'Setenv ToTDemo1:Data/TCPIPDeja -1'        /* direkt raus hier            */
  42.               EXIT
  43.           END        
  44.           END
  45.         DO UNTIL SHOW('P','MIAMI.1')        /* Auf TCPIP-Stack warten warten    */
  46.           SIGNAL OFF ERROR                /* Fehler-Meldung solange auschalten    */
  47.           'WaitForPort MIAMI.1'            /* Isser nu da ?            */
  48.           SIGNAL ON ERROR                /* Fehler-Meldungen wieder ein        */
  49.         END                        
  50.       END
  51.     ENDIF
  52.         tcpipport = MIAMI.1                /* ist auf jeden Fall der aktive Port    */
  53.  
  54. ADDRESS (tcpipport)
  55.     HIDE
  56.     EXIT
  57.